home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aat.d64 / karate battle (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  89 lines
  1. 0 PRINT"[147]"
  2. 1 PRINT"THIS IS MY FIRST GAME!!"
  3. 2 PRINT"PLEASE SEND ME A SHORT LETTER"
  4. 3 PRINT"AND I WILL WRITE BACK..."
  5. 4 PRINT
  6. 5 PRINT"C/O CHRIS VANKULA"
  7. 6 PRINT"3754 CRESTON DR."
  8. 7 PRINT"INDPLS,IN  46222 "
  9. 8 PRINT"TYPE RUN 10 FOR GAME!!"
  10. 9 END
  11. 10 REM************
  12. 20 REM* CHRIS'S  *       PUBLIC
  13. 30 REM* KARATE-  *
  14. 40 REM* BATTLE   *       DOMAIN
  15. 50 REM************
  16. 60 PRINT"[147]"
  17. 70 PRINT"    [213][195][195] [174]  [176] [174][195][195][201] [174][176] [213][195][195][201]"
  18. 80 PRINT"    [194]   [171][195][195][179] [171][195][195][203] [170][180] [202][195][195][201]"
  19. 90 PRINT"    [202][195][195] [189]  [173] [189]  [205] [189][173] [202][195][195][203]"
  20. 100 PRINT
  21. 110 PRINT"          VANKULA'S"
  22. 120 FORL=1TO5
  23. 130 PRINT
  24. 140 NEXTL
  25. 150 PRINT"  K A R A T E   B A T T L E"
  26. 160 PRINT" --->PRESS ANY KEY<---"
  27. 170 GET JZ$:IFJZ$="" THEN 170
  28. 180 PRINT"[147]        DIRECTIONS Y/N":GETYN$:IF YN$="N" THEN 500
  29. 190 IF YN$="" THEN180
  30. 200 PRINT"[147]            DIRECTIONS[146]"
  31. 210 PRINT"STEPS[146]"
  32. 220 PRINT"<1> ENTER 2 PLAYERS NAMES"
  33. 230 PRINT"<2> EACH TAKE TURNS PICKING MOVES"
  34. 240 PRINT"<3> IF YOU BEAT THE COMPUTER"
  35. 250 PRINT"             YOU RECEIVE PTS."
  36. 260 PRINT"<4> FIRST PERSON TO 100 WINS"
  37. 270 PRINT"<5> LOSER PAYS WINNER $0.25"
  38. 275 PRINT"<6>HINT:HARDER MOVES=MORE PTS"
  39. 276 PRINT"<7>HINT:EASY MOVES  =BETTER CHANCE OF"
  40. 277 PRINT"                     WINNING"
  41. 280 INPUT"   ---> PRESS RETURN <---";HU$
  42. 500 PRINT"[147]"
  43. 510 INPUT"ENTER PLAYER 1";PO$
  44. 520 INPUT"ENTER PLAYER 2";PT$
  45. 530 PRINT"[147]"
  46. 540 PRINT"        **";PO$;PO;"     **";PT$;PT
  47. 550 PRINT"   --PLAYER--EASY--HARD--"
  48. 560 PRINT"   ----------------------"
  49. 570 INPUT"PL.1 EASY/HARD?";OM$
  50. 571 IF OM$<>"EASY" AND OM$<>"HARD" THEN PRINT"[145][145]":GOTO 570
  51. 580 INPUT"PL.2 EASY/HARD?";TM$
  52. 581 IF TM$<>"EASY" AND TM$<>"HARD" THEN PRINT"[145][145]":GOTO 580
  53. 582 IF OM$="EASY" THEN H=1:GOTO 590
  54. 583 H=2
  55. 590 IF TM$="EASY" THEN O=1:GOTO 600
  56. 595 O=2
  57. 600 IF H=1 THEN PRINT"[145][145]       PL. 1 = [214]               "
  58. 610 IF H=2 THEN PRINT"[145][145]       PL. 1 =       [214]        "
  59. 620 IF O=1 THEN PRINT"       PL. 2 = [214]               "
  60. 630 IF O=2 THEN PRINT"       PL. 2 =       [214]        "
  61. 635 FORL=1TO2000:NEXTL
  62. 640 IF H=1 THEN 700
  63. 650 IF H=2 THEN 800
  64. 660 IF O=1 THEN 900
  65. 670 IF O=2 THEN 1000
  66. 700 G=INT(20*(RND(0)))
  67. 710 IFG<17 THEN PO=PO+G:K=1
  68. 720 GOTO 660
  69. 800 G=INT(50*(RND(0)))
  70. 810 IFG>42 THEN PO=PO+G:K=1
  71. 820 GOTO 660
  72. 900 Q=INT(20*(RND(0)))
  73. 910 IFQ<17 THEN PT=PT+Q:J=1
  74. 920 GOTO 2000
  75. 1000 Q=INT(50*(RND(0)))
  76. 1010 IFQ>42 THEN PT=PT+Q:J=1
  77. 1020 GOTO 2000
  78. 2000 IF K=1 THEN PRINT"PLAYER 1 WINS..";G;"PTS."
  79. 2010 IF J=1 THEN PRINT"PLAYER 2 WINS..";Q;"PTS."
  80. 2012 IF J<>1 AND K<>1 THEN PRINT"COMPUTER WINS TWICE!!"
  81. 2015 FORL=1TO3000:NEXTL
  82. 2016 H=0:O=0:G=0:K=0:J=0:Q=0
  83. 2017 IF PT>99 THEN 5000
  84. 2018 IF PO>99 THEN 6000
  85. 2020 GOTO 530
  86. 5000 PRINT"[147]";PT$;"  WINS!!"
  87. 5010 END
  88. 6000 PRINT"[147]";PO$;"  WINS!!"
  89.